home *** CD-ROM | disk | FTP | other *** search
/ Willard Press Kit / Willard Press Kit.iso / mac / Acrobat Reader 5 PC / AcroRd32.exe / PSPROCSET / 16 < prev    next >
Text File  |  2002-12-14  |  2KB  |  145 lines
  1. %%BeginResource: procset pdflev1
  2. %%Version: 5.0 12
  3. %%Copyright: Copyright 1987-2001 Adobe Systems Incorporated. All Rights Reserved.
  4. %%LanguageLevel: 1
  5. %%Title: PDF operators, with code specific for Level 1
  6. /docinitialize {
  7. PDF begin
  8. /_defaulthalftone
  9. /currenthalftone where
  10. { pop currenthalftone }
  11. { 4 dict dup begin
  12. currentscreen
  13. /SpotFunction exch def
  14. /Angle exch def
  15. /Frequency exch def
  16. /HalftoneType 1 def
  17. end }
  18. ifelse
  19. dd
  20. end
  21. PDFVars /docSetupDone true put
  22. } bd
  23. /initialize {
  24. PDFVars /docSetupDone get {_defaulthalftone sethalftone} if
  25. } bd
  26. /terminate { } bd
  27. /pl {
  28. transform
  29. 0.25 sub round 0.25 add exch
  30. 0.25 sub round 0.25 add exch
  31. itransform
  32. } bd
  33. /m { _sa? { pl } if moveto } bd
  34. /l { _sa? { pl } if lineto } bd
  35. /c
  36. {
  37. _sa? {3 {pl 6 2 roll} repeat} if
  38. curveto
  39. } bd
  40. /ri/pop ld
  41. /setSA { /_sa? xdd } bd
  42. /re
  43. {
  44. _sa?
  45. {
  46. 8 dict begin
  47. /:h exch def
  48. /:w exch def
  49. /:y exch def
  50. /:x exch def
  51. :x :y pl
  52. /:ymin exch def /:xmin exch def
  53. :x :w add :y :h add pl
  54. /:ymax exch def /:xmax exch def
  55. :xmin :ymin moveto
  56. :xmax :ymin lineto
  57. :xmax :ymax lineto
  58. :xmin :ymax lineto
  59. closepath
  60. end
  61. }
  62. {
  63. 4 2 roll moveto
  64. 1 index 0 rlineto
  65. 0 exch rlineto
  66. neg 0 rlineto
  67. closepath
  68. } ifelse
  69. } bd
  70. /q /gsave ld
  71. /Q /grestore ld
  72. /AlmostFull?
  73. { dup maxlength exch length sub 2 le
  74. } bd
  75. /Expand
  76. { 1 index maxlength mul cvi dict
  77. dup begin exch { def } forall end
  78. } bd
  79. /xput {
  80. 3 2 roll
  81. dup 3 index known not
  82. { dup AlmostFull? { 1.5 Expand } if
  83. } if
  84. dup 4 2 roll put
  85. } bd
  86. /defineRes {
  87. _categories 1 index known not
  88. { /_categories _categories 2 index 10 dict xput store
  89. } if
  90. _categories exch 2 copy get 5 -1 roll 4 index xput put
  91. } bd
  92. /findRes {
  93. _categories exch get exch get
  94. } bd
  95. /L1setcolor {
  96. aload length
  97. dup 0 eq
  98. { pop .5 setgray }
  99. { dup 1 eq
  100. { pop setgray }
  101. { 3 eq
  102. { setrgbcolor }
  103. { setcmykcolor }
  104. ifelse }
  105. ifelse }
  106. ifelse
  107. } bind dd
  108. /setoverprint where
  109. { pop }
  110. { /setoverprint { pop } bd }
  111. ifelse
  112. /_safeput
  113. {
  114. Level1?
  115. {
  116. 2 index load dup dup length exch maxlength ge
  117. { dup length 5 add dict copy
  118. 3 index xdd
  119. }
  120. { pop }
  121. ifelse
  122. }
  123. if
  124. 3 -1 roll load 3 1 roll put
  125. }
  126. bd
  127. Level1?
  128. {
  129. /pdf_CopyDict
  130. {
  131. 1 index length add dict
  132. 1 index wcheck
  133. { copy }
  134. { begin
  135. {def} forall
  136. currentdict
  137. end
  138. }
  139. ifelse
  140. }
  141. def
  142. }
  143. if
  144. %%EndResource
  145.